﻿Imports ControleMatricula.Negocio

Public Class FrmDesativaAlunos

    Dim db As New DataClassesDataContext()

    Private Sub btnConfirmar_Click(sender As System.Object, e As System.EventArgs) Handles btnConfirmar.Click

        Dim Semestre As Integer = 0
        Semestre = cmbSemestre.SelectedIndex + 1

        Dim ListAluno As List(Of SPAlunoConsultarResult)
        ListAluno = db.SPAlunoConsultar(0, 0, "", "", "", "", 0, "1", Semestre, CInt(txtAno.Text)).ToList()


        If ListAluno.Count > 0 Then

            If MsgBox("Deseja realmente desativar todos os alunos do semestre selecionado?", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Sistema Especifica") = MsgBoxResult.Yes Then

                For x = 0 To ListAluno.Count - 1

                    db.SPAlunoAlterar(CInt(ListAluno(x).IDAluno), _
                                      ListAluno(x).Matricula, _
                                      ListAluno(x).Nome, _
                                      ListAluno(x).CPF, _
                                      ListAluno(x).RG, _
                                      ListAluno(x).Emissor, _
                                      ListAluno(x).UFRG, _
                                      ListAluno(x).DTNascimento, _
                                      ListAluno(x).CEP, _
                                      ListAluno(x).Logradouro, _
                                      ListAluno(x).CompLogradouro, _
                                      ListAluno(x).NumeroLogradouro, _
                                      ListAluno(x).DDDTelefone, _
                                      ListAluno(x).Telefone, _
                                      ListAluno(x).DDDCelular, _
                                      ListAluno(x).Celular, _
                                      ListAluno(x).Email, _
                                      CBool(ListAluno(x).STCOC), _
                                      ListAluno(x).TPCurso, _
                                      ListAluno(x).NomeEscola, _
                                      ListAluno(x).Observacao, _
                                      False, _
                                      ListAluno(x).IDFuncionarioCadastro, _
                                      ListAluno(x).DTCadastro, _
                                      GlobalLogin, _
                                      Date.Now())

                Next

                MsgBox("Alunos desativados com sucesso!", MsgBoxStyle.Information)

            End If
        Else
            MsgBox("Não foram encontrados registros!", MsgBoxStyle.Information)
        End If


    End Sub
End Class